home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / sprite data (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.9 KB  |  81 lines
  1. 0 PRINT"[147]     *** LOADING/CHECKING DATA ***"
  2. 1 DIMEA(20):C1=0:DL=100:IN=1:LE=64:Q=8:AD=12288:DEFFNA(Z)=DL+(X*IN)
  3. 2 FORX=0TOLE:CS=0:FORC=0TOQ-1:READD:CS=CS+D
  4. 3 IFD<256THEN6
  5. 4 IFC=Q-1THENPRINT"[147]  DATA QUANTITY ERROR IN LINE:-"FNA(Z):STOP
  6. 5 EA(C1)=FNA(Z):C1=C1+1
  7. 6 POKEAD+X*Q+C,D:NEXT
  8. 7 READD:IFD<>CSTHENEA(C1)=FNA(Z):C1=C1+1
  9. 8 NEXT
  10. 9 X=C1:IFC1=0THENPRINT"[147]  DATA IS ERROR FREE":GOTO12
  11. 10 PRINT"[147]DATA ERROR LIST"
  12. 11 FORC=0TOX:PRINTEA(C)"*";:NEXT
  13. 12 REM
  14. 13 REM
  15. 14 END
  16. 100 DATA15,255,240,63,255,240,255,255,1578
  17. 101 DATA240,170,170,240,170,170,240,170,1570
  18. 102 DATA106,240,170,106,240,169,106,240,1377
  19. 103 DATA169,106,240,169,106,240,169,106,1305
  20. 104 DATA240,169,106,240,169,106,240,169,1439
  21. 105 DATA106,240,169,106,240,169,106,240,1376
  22. 106 DATA169,106,192,170,170,192,170,170,1339
  23. 107 DATA0,0,0,0,0,0,0,0,0
  24. 108 DATA15,255,240,63,255,240,255,255,1578
  25. 109 DATA240,170,170,240,170,170,240,165,1565
  26. 110 DATA90,240,149,86,240,154,150,240,1349
  27. 111 DATA170,166,240,170,150,240,165,86,1387
  28. 112 DATA240,149,90,240,150,170,240,154,1433
  29. 113 DATA166,240,154,166,240,149,86,240,1441
  30. 114 DATA149,86,192,170,170,192,170,170,1299
  31. 115 DATA0,0,0,0,0,0,0,0,0
  32. 116 DATA15,255,240,63,255,240,255,255,1578
  33. 117 DATA240,170,170,240,170,170,240,149,1549
  34. 118 DATA86,240,149,86,240,154,150,240,1345
  35. 119 DATA170,90,240,169,106,240,169,90,1274
  36. 120 DATA240,170,150,240,170,166,240,154,1530
  37. 121 DATA166,240,150,150,240,149,86,240,1421
  38. 122 DATA165,90,192,170,170,192,170,170,1319
  39. 123 DATA0,0,0,0,0,0,0,0,0
  40. 124 DATA15,255,240,63,255,240,255,255,1578
  41. 125 DATA240,170,170,240,170,170,240,170,1570
  42. 126 DATA90,240,169,90,240,169,90,240,1328
  43. 127 DATA165,154,240,165,154,240,150,154,1422
  44. 128 DATA240,149,86,240,149,86,240,170,1360
  45. 129 DATA154,240,170,154,240,170,86,240,1454
  46. 130 DATA170,86,192,170,170,192,170,170,1320
  47. 131 DATA0,0,0,0,0,0,0,0,0
  48. 132 DATA15,255,240,63,255,240,255,255,1578
  49. 133 DATA240,170,170,240,170,170,240,149,1549
  50. 134 DATA86,240,149,86,240,154,150,240,1345
  51. 135 DATA154,170,240,149,86,240,149,86,1274
  52. 136 DATA240,170,150,240,170,166,240,150,1526
  53. 137 DATA166,240,150,150,240,149,86,240,1421
  54. 138 DATA149,86,192,170,170,192,170,170,1299
  55. 139 DATA0,0,0,0,0,0,0,0,0
  56. 140 DATA15,255,240,63,255,240,255,255,1578
  57. 141 DATA240,170,170,240,170,170,240,165,1565
  58. 142 DATA90,240,149,90,240,150,150,240,1349
  59. 143 DATA154,150,240,154,170,240,149,90,1347
  60. 144 DATA240,149,86,240,150,150,240,154,1409
  61. 145 DATA166,240,150,150,240,149,86,240,1421
  62. 146 DATA165,90,192,170,170,192,170,170,1319
  63. 147 DATA0,0,0,0,0,0,0,0,0
  64. 148 DATA15,255,240,63,255,240,255,255,1578
  65. 149 DATA240,170,170,240,170,170,240,149,1549
  66. 150 DATA86,240,149,86,240,150,150,240,1341
  67. 151 DATA170,154,240,170,90,240,170,90,1324
  68. 152 DATA240,170,90,240,170,90,240,169,1409
  69. 153 DATA106,240,169,106,240,169,106,240,1376
  70. 154 DATA169,106,192,170,170,192,170,170,1339
  71. 155 DATA0,0,0,0,0,0,0,255,255
  72. 156 DATA15,255,240,63,255,240,255,255,1578
  73. 157 DATA240,170,170,240,170,170,240,165,1565
  74. 158 DATA90,240,149,86,240,150,150,240,1345
  75. 159 DATA154,166,240,150,150,240,165,90,1355
  76. 160 DATA240,165,90,240,150,150,240,154,1429
  77. 161 DATA166,240,150,150,240,149,86,240,1421
  78. 162 DATA165,90,192,170,170,192,170,170,1319
  79. 163 DATA0,0,0,0,0,0,0,0,0
  80. 164 DATA0,0,0,0,0,0,0,0,0
  81.